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Four new Project SOLO modules are presented here: 
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dating system which proved to be very popular with the high school 
students who developed it. (JY) 
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To Each His Own 

Any doubts about the reality of "individual* differences in learning style 
vanish into thin air when teacher /student control of computing is given tree play. 

Any doubt about the continued importance of adult guidance and professionally pre- 
pared learning materials for such a "free" atmosphere also goes up in smoke in 
face of the requirements of such a computer supported learning system. The sup- 
posed conflict between structure and freedom turns out to be non-existent. Free- 
dom builds on structure, and structure makes freedom possible. 

The four modules enclosed with this newsletter illustrate a range of approaches 
to computer- related instruction and learning which reflect some of the differences 
in style that are possible within an educational philosophy that integrates researcher- 
teacher-student ideas . 



Lagrangian Interpolation/Extrapolation 

Tnis module was prepared by Frank Wimberly of the Project Solo staff. It 
illustrates the kind of contribution to computer learning that can best be made by- 
authors with professional mathematical computing backgrounds. A follow up unit 
which applies the material in this module to plotter displays (such as the HP-7200) 
is also being prepared by Frank. 



This CAI unit is the combined effort of Allderdice physics teacher John M. Shore 
and student- teacher Bernie Meisner. The ability of students to use the computer to 
calculate answers within the CAI dialogue provides valuable problem solving exper- 
ience for students. 
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Chemistry (Laboratory Style) _ . 

The idea for the /SPEX/ programs enclosed originated with Mrs. Dolores 
Kubiak, chemistry teacher at Allderdice High. The programs were developed by 
student Joel Berez and are in use by fellow chemistry students. Mrs. Kubiak en- 
courages students to use the output of these programs as part of their lab reports. 
As can be imagined, these students think automation is O. K. 



Chemistry (Bov/Girl Style) j • j 

The computer dating system described on the following pages was designed 
and implemented by student Leon Sweer (12 grade). Unfortunately we have had 
to discourage use of the program. The lines of students who wanted to participate 
taxed the school's terminal capacity to the bursting point. There must be a lesson 
somewhere in this. 

I 












QOMPtITEII 




Certainly not a new idea in computing, but one that lends itself to many variations, 
is that of a computer dating service. Even though such services are generally not asso- 
ciated with time sharing systems, the ability to store large data files on the Corn-Share 
system makes one possible. The following is a description of such a service which I de- 
signed using the NEWBASIC language. 



How the Service Operates 

The basic requirements of such a service are: 

1. That a pool of information be set up for each person as a basis 
for comparing the "compatibility" of two people and that this 
information be stored on files for later use. 

2. That the information of one individual can be retrieved and com- 
pared against the information of the other people on file (of the 
opposite sex, of course) in an attempt to come up with someone 
"compatible". 

3. That some type of rating system be set up to determine the so- 
called "limits of compatibility". 

In my service, these requirements are fulfilled by using two data files (one stores 
the boys' information and one the girls') and two NEWBASIC programs. The first 
gram, named /DATE/, asks the user to supply certain pieces of information about him- 
self or herself. The first ten items are merely to record name, address, and other such 
information. The rest of the program asks questions about personality, interests, and 
what type of a date he (or she) would prefer. This information is stored on the appro- 
priate data file (/BOYS/ or /GIRLS/). These questions are not necessarily the best pos- 
sible ones that could be asked, but they are enough to gain some insight into what type of 
person the user is and what type he (or she) would like. 

The actual comparisons, however, take place when another program, named /COM- 
PILER/, is run. For simplicity, the service is set up so that the user does not have ac- 
cess to this program. Rather, the person supervising the service runs all of the names 
through at one time during the week. This also helps minimize costs. 

When the name and sex of someone on file is entered, the information under his 
name in the appropriate file is read into core as well as the entire contents of the oppo- 
site sex file. Comparisons are made one item at a time on a point basis. For example, 
if the person whose name was typed has indicated that he would like someone about the 
same age, and the age of the person from the other file is close to his, 20 points are added 
to the score of that person. Thus, at the end of all the comparisons, there will be as many 
scores (stored in array S) as there were people who were compared with the entered name. 
The highest possible score is 135 points. Anything above 110 is considered a very good 
match.and anything above 80 is considered to be a fairly good match. The computer then 
reviews the scores and prints the names of the people whose scores fell within those Wgh 
ranges. All data, of course, is then read back into the data files to be used again. The 
listings which follow contain notes on programs and their functions. Following the listings 

are sample runs of both /DATE/ and /COMPILER/. 



PROJECT SOLO / Ve.pt. CowputeA. Sctenee / Untv. OjJ Pttt6bu^gk ( 7 52 1 3 ) 
Module fiOISO / Leon Swee^ (S) 

ERJC Ou 

iU 



A 



liiiiirilMHIIttii 




2 



I 



/C-1MPILEK/ 



O 

ERIC 



«o 

90 

95 

100 

1/|5 

un 

U\0 

150 

153 

15/| 

155 

156 
160 
16?. 
163 
16/1 

165 

166 
167 
170 
30 0 
210 
220 
22 5 
22 7 
22 « 
229 
250 
255 
260 
300 
30 1 

302 

303 
30/1 
305 
310 
320 
330 
3/l0 
3/1 5 
350 
355 
360 
365 
/lOO 
/|0 1 
/|02 
/103 



DIM SS<30,30) 

DIM IS (25^25) 

DIM S<25) 

PR. " DATING COMPILFlo VERS. DEC. 

P)<. Pli. PH. PR. "LAST NAME- ACCEPT iMS 

PiU "FIRST NAME- ACCEPT F 

PH. "SEX-": ACCEPT SS 






1971" 

145-149 



CHECK TO SEE IF NAME 
ON FILE 



3 END 



200-300 



25 



READ ENTIRE CONTENTS 
OF OTHER FILE 



INPUT NAME & SEX 
IF IC!j(S$i"F'S0 ) riH ICl)(SSi"G'SO) THEN 155 150-200 
tJPEN M59WR /BOYS/* FDR INPUT^ 3 
GUTI' 156 

riPF.N M59UR /GIRLS/* FYlR INPUT# 3 
INPUT FROM 3# A 
FUR 1=1 TU A 

INPUT FROM 3# S$<I#H) FUR H=1 Ti I 25 
IF LEFT(NS#3)=LEFT<SS(I# 1)#3) THEN 16/1 ELSE 165 
IF LEFT(FS#2) =LEFT<SS(I #2)#2) THEN 167 
mb:xt I 

PR. "NAME NUT H*OUND (RUN l59Wil /DATE/)" CLOSE 

le:t is( 1 #qi)=ss<i#oi) fur oi = i ti] 25 

CLUSE 3 

IF ICUCISC 1#7)#"F"#0) THEN 250 
□ PEN *159WR /GIRLS/* FUR INPUT# 

INPUT FROM 3# A 
FUR 1=2 TU A+1 

INPUT FROM 3# IS(I#C) FUR C=1 TO 
N1T.XT I 
GGTG 300 

□PEN »159WR /BOYS/* FUR INPUT# 3 
K=1 

GOTO 220 
CLOSE 3 
FUR C=2 TO A+1 

IF LEFTCISC 1# 12)#3)="ULD" AND LEFTC I S(C# 12) # 3 ) =*'YnU" THEN 310 

IF LEFTCISC 1# 12)#3)="Y0U" AND LEFTC I $(C# 12) # 3 ) ="OLD" THEN 310 

IF LEFTCISC 1# 12) # 3) ="SAM" AND LEFTC I S ( C# 12) # 3 ) ="SAM" THEN 310 

GGTG AOO 

IF ICGCISC 1# 12)#"GLD"#0) LET G= 1 
IF ICGCISC 1# 12)# "Yi.lUN"#0) LET G=2 
V=VAL(IS(1# 17) )-VAL(IS(C#17)) 

IF G = 0 AND -.5< = U AND V< = .5 LET S(C)=S(C)+20 GGTG AOO 
IF G = 0 AND -K = V AND V<=1 LEIT SCC)=S(C) + 10 GUTG /lOO 
IF G=1 AND -/J<=V AND V< = -1 LET S(C)=S(C)+20 GGTG /|00 
IF G=1 AND -K=V AND V< = -.5 LET S(C)=S(C) + 10 GGTG /lOO 
IF G = 2 AND 1<=V AND V<=/1 LET S(C)=S(C)+20 GGTG /lOO 
IF G=2 AND .5<=V AND V<=1 LET S(C)=S(C) + 10 GUTO /lOO 

IF LEFTCISC 1# 1 1 )# 3)=*'TAL" AND LEFTC I S ( C# 1 1 ) # 3 ) =*'SHO" THEN AOS 

IF LEFTCISC 1# 1 1 )#3)="SHG*‘ AND LEFT C I S ( C# 1 1 ) # 3 ) =**TAL*' THEN AOS 

IF LEFTCISC 1# 1 1) #3)="SAM" AND LEFT ( I SCC# 1 1 ) # 3 ) =**SAM" THEN AOS 

GOTO 500 



300-365 



AGE - UP TO 
20 POINTS 















f 

3 



/CI3MPILEH/ (cont. ) 



^JU5 

/ilO 

4P0 

/|3U 

/l35 

mo 

500 
50 5 
510 
515 
5J30 
600 
700 
70 1 
710 
715 
720 
730 
7^0 
750 
760 
770 

000 
900 
910 
91 1 
913 



IF 

IF 

IF 

IF 

IF 

IF 



IF ICl](IS< U 1 1)>"TALL'S0) 
IF ICQ<I$< l» 1 1 )>"SHnRT'S0 
V=VAL(I$< I* 1«) )-VAL<I$<C> 
IF D=1 AND V< = -2 LET S(C) 
n=2 AND V>=2 LET S(C) = 
-2<=V AND V<=2 LET S(C 
A13S<VAL< I S< 1> 10))-VAL< 
ADS<VAL<IS< I, 13))-VAL< 
VAL<IS< I* 10) )=VAL<IS<C 
VAL<IS< I* 13) )=VAL<IS<C 
S<C)=S<C)+10 
IF IS< I* 15)=IS<C> 15) 

FUD 1=21 Til 25 

Fail 0=21 TH 25 

IF VAL<I$< UG) )=VAL<IS<C> 

NEXT n 

NEXT I 

IF ICO<I$< 1> 1A)>"SIW'S0) 
Pl = <5-L)>«‘3 

IF ICiKIS<C> 1A)>"SIM">0) 
P2=<5-L)*3 

I F LEFT< I S < U 1 A ) > 3 ) =LEFT < 
5<C)=5<C)+ABS<P1-P2) 

IF LEFT<IS< 1> 16)>3)=LEFT< 
IF IS< 1>20)=IS<C>«) LET S 
IF IS< 1>8) =IS<C>20) LET S 
PD. , . 

Pl-P2-L-V*-B-G-0 



400-440 

LET D= 1 

) LET n=2 height - UP TO 
20 POINTS 

sS<C)+20 onTO 500 
S<C)+20 GOTO 500 
)=S<C)+20 

IS<C>13))) <=1 THEN 505 
IS<C>10))) <=1 THEN 510 
, 13) ) LET S<C)=S<C) +5 
> 10) ) LET S<C)=S<C)+5 



ELSE 600 
ELSE 600 

'500-520 



LET S<C)=S<C)+15 



I ) ) LET L=L+1 



600 



PERSONALITY MATCH - 
TO 20 POINTS 



KISS ON 
DATE? 

15 POINTS 



FIRST 
UP TO 



LET P1=L*3 GOTO 750 
LET P2=L*3 GOTO 770 



700-780 

INTEREST MATCH - UP 
TO 30 POINTS 



IS<C>1A)>3) LET S<C)=S<C)+P1+P2 GOTO 800 



IS<C> 16)>3) 
<C)=S<C)+10 
<C)=S<C)+10 



LET S<C)=S<C)+10 

900-910 



HAIR COLOR MATCH - 
UP TO 20 POINTS 



91 A NEXT C 

915 Ph'. PR. PH. PH. 

916 PR. "NUMBER GF PEOPLE CriMPARED=" : C- 1 

917 PH. PR* "THE CUMPUTEH FEELS THAT THE 
A BIG HIT WITH YGU:" 

918 FGH B=2 TO C 

919 IF S<B)>=110 LET Z=Z+1 GGSUB 3000 

920 np:xt B 

921 IF Z=0 PH. "NOBODY" 

922 PH. PR. "THE COMPUTER FEELS THAT THE 
A FAIRLY DIG HIT WITH YOU:" 



FOLLOWING PEOPLE WOULD MAKE 



921-926 

PRINT OUT CHOSEN 
PEOPLE (IF MY) 

FOLLOWING PEOPLE WOULD MAKE 



923 FOR D=2 TO C 

92A IF 80<=S<B) AND SOIXIIO LET G=C)+1 GOSUB 3000 

925 NEXT D 

926 IF Q=0 PR. "NOBODY" 



927 PH. 
2105 PR. 

2107 PR. 

2108 PR. 

2109 PR. 

2110 PR. 



PH. PH. .. 

PH. PH. "DON'T BE TOO SHOOK IF YOU DIDN'T GET MATCHED UP WITH" 

"SOMEIONE. ANOTHER HUN WILL BE MADE THE END OF THE WEEK" 

"AND MAYBE YOU WILL HAVE BETTER LUCK. MEANVJHILE> " 

"YOU ARE ALREADY ON FILE. GOOD LUCK!" 

PR. PH. VAH=ZER0 END 








UP 






4 



f 



/cnKPILhlH/ (cont.) 



3000 


PI . 


PH. PR. "NAME 


30 10 


Pi'i . 


"ADDRESS : 


3020 


PP. . 


II 


30 30 


PH . 


"PHONE NUMBER 


30 AO 


i-;eturn 



":I$a3>5) 

":IS(13>6) 



" : IS(Bi 1) 

3000-3040 

ROUTINE TO PRINT 
CHOSEN NAMES 



/DATE/ 



90 

9/| 

95 

96 
AS 

97 
9H 
Y)n 



STRING A(I) FilH 1 = 1 TO 80 
DIM B(40) 

PIU PR. " DATING SERVICE I NSTHUCTIONS." 

PH. PH. " 1. ANSWER THE QUESTIONS IN THIS PHOGHAM AS TRUTHFULLY 

YOU CAN. THE INFORMATION YOU SUPPLY WILL BE STORED IN A CON-" 
PR."FIDENTIAL FILE." 

PH. " 8. WHEN YOU HAVE RECEIVED THE MESSAGE ‘NAME ON FILE‘> 

CAN BE SURE THAT YOUR NAME AND INFORMATION HAVE BEEN SAVED. 



THAT IS ALL YOU HAVE TO DO." 

99 PH. " 3. COMPARISONS ARE RUN ONCE EACH WEEK ON FRIDAY 

OR SATURDAY. TO FIND OUT IF YOU WERE MATCHED UP WITH ANYONE^ 
NilTICE IN THE COMPUTER ROOM WHICH WILL BE POSTED EVERY MONDAY 

100 PR. "♦♦♦NOTE*** IF YOU HAVE RUN THIS PROGRAM BEFORE^ 

YOUR NAME IS ALREADY ON FILE AND YOU SHOULD NOT KlE RUNNING 
IT AGAIN! IF THIS IS THE CASE^ ESCAPE NOW!" 

101 PR. 



SEE 

II 



THE 



110 

120 

130 

lAO 

150 

151 
158 
153 
160 

170 

171 

172 
IGO 
190 
200 
210 
280 



PR. 

PR. 

PR. 

PR. 

PR. 

PR. 

PR. 

LET 

PR. 

PR. 

IF 

PR. 

PR. 

PR. 

PR. 

PR. 

PR. 



PR. " SUPPLY THE FOLLOWING INFORMATION:" STATEMENTS 101-690 
"LAST NAME-": ACCB^PT Ad) 



"FIRST NAME-": ACCEPT A<2) 

"MIDDLE INITIAL-": ACCEIPT A<3) 

"ADDRESS-": ACCEPT A<4) 

"CITY-": ACCEPT YS 
"STATE-": ACCEPT NS 
"ZIP-": ACCEPT ZS 
A<5)= YS+" "+NS+" "+ZS 
"PHONE NUMBER-": ACCEPT AC 6) 

"SEX-": ACCEPT AC7) 

IC0CAC7)>"M">0) OR I COCAC 7 ) > "F" > 0) THEN 180 
"VERY FUNNY!" GOTO 170 
"AGE-": ACCEPT BC21) 

"HIEGHTC INCHES) -": ACCEPT BC22) 

"WEIGHT-": ACCEPT DC 23) 

"COLOR OF HAIR CDLONDE> GRAY> BHOWN> BLACK^RED) 
"COLOR OF EYES-": ACCEPT AC 9) 



INPUT ALL INFORMATION 
AND ANSWERS TO QUES- 
TIONS 






ACCEPT AC 8) 



5 



II • 



II • 



;RS:", OR GNE ABilUT THE SAME 



?30 PR. "HATE YGUR PERSUNALITY UN A 1 THRIJUGH 5 BASIS, J 

aId 5 be quite ODTCniNG. TYPE IN THE NUMBER WHICH YOU DECIDE UN." 

R31 PR. ACCEPT A(10) 

R/|U IF I C ] < A< 7 ) > "F" # 0 ) LET RI = "DUY" GOTU 86C 

250 R1="GIRL" ^ „ 

P.60 PH. PH. "ANSWER THE FGLLiJUING QUESTIUNS: 

270 PR. PH. 

2H9 Pii. "WGULD YOU LIKE A TALLER OR SHORTER 
E 

HEIGHT?" 

290 PR. ACCEPT A( 1 1 ) 

300 PR. "WGULD YOU LIKE AN OLDER HH YOUNGETR 
E AGE?" 

310 PR. "-"‘.ACCEPT A(12) 

in THB: NUMBER. 

MO ™: ••WULS''5nu’'uKE"s..KB:,)NE VUTH IMTEHESTS SIMILAK OB DIFFERENT 

TG YOUR IJWN?" 

• • — APPPPT ACWl) 

"WHAT COLUH HAIR WOULD YOU LIKE ON YOUR ":RS:" (BLONDE, GRAY, 



OR GNE ABOUT THE SAME 
YOU WGULD LIKE IN THE'. 



350 


PR. 


360 


PR. 


mowN, 1 


370 


PR. 


3H0 


PR. 


390 


PR. 


/lOO 


PR. 


^llO 


PR. 


500 


PR. 


50 1 


PR. 


508 


PR. 


503 


PR. 


50 /« 


PR. 


505 


PR. 


50 6 


PR. 


507 


PR. 


50 « 


PR. 


509 


PR. 


51 0 


PR. 


580 


PR. 


581 PR. 


588 


PH. 


538 


PR. 


533 


Pl^. 


500 


PR. 


5^»1 


IMO 


5^15 


PR. 


5A6 


PR. 



P.M 



7 " 



ACCE:PT A(17) ^ 

"WGULD YUU KISS A ":R$:" GN YUUH FIRST DATE? 

jvu • ••—•*2 ACCEPT A(15) . - 

AOO PR. "DG YOU USUALLY GOT TO BED BEFURE# AFTER# Gh AT 11 
• APPirpT AC 1 ) 

•• niK MHPUTEh'wILL now print a list of DIFFERp^lT HOBBIK 
"AND INTFl\FSTS VJHICH YGU MIGHT HAVE. THERE WILL BE A NUMBER 
"DFMDrEACH 0^ AFTER THE LIST IS THROUGH BEING PRINTED,;; 
"A DASH WILL BE! FHINTED. PICK GUT ONE 
"LIST WHICH INTERESTS YOU, TYPE 

••IT, AND HIT A RETUBN. ANGTHEH DASH .. 

••MAY DG THIS FIVE. TIMES FClH FIVE DIFFERENT INI BUT, 

••IF YUU WANT TO STGP AFTER JUST TWG OR THREE, JUST 
•'HIT A RETURN WITHOUT A NUMBER AFTER THE DASH." 

"HERE IS THE LIST. " 

PP • 

"1 -baseball a- BASKETBALL 3-FUOTBALL OH SOCCER „ 

•■S^I.ICKEY 6-TENNIS 7-SWIMMING B-HYCYCLINR 9-lIUTDtlORS (CAMP-" 

"ING, HIKING, ETC.)" rM,v,cTr’c .. 

"10-BlOLGGY 1 1 -CHEMlSTliY 12-MATHEMATICS 13-PHYSICS 

" 1^-C'JMPUTE:RS IS-ELECTRONICS 16-MECHANICS" 

•20-CLASSICAL MUSIC 21-CGUNTHY -WESTERN 28-HARD ROCK 

■ 30 -AC?Wg" 31 -DANCING 3S-W:AmNG 33-WRITING 3 A-PHnT 0 GnAPHY" 
'35-SEWING 36-BASKET V«;EAVING 37-EATING." 



ft « 

It i 

i 

ft < 
tt * 



O 

ERIC 









mmm 



6 



600 PH. 'MKi INPUT THE NUM13EHS NOW. " 

605 C = R6 

610 PH. ACCEPT W$ 

680 IF WS="” THEN 690 

600 IF LENGTH(W5)>2 PH. "BAD NUN" GOTO 610 
650 B(C)=VAL(yi) 



660 IF C=30 THEN 690 
670 C=C+1 GO TO 610 
690 DIM I£(30^25) 

700 IF ICO(A(7) i "F'S 0 ) OH I CO ( A( 7 ) ^ "G" ^ 0 ) THEN 720 
710 OPEN '159VH /BOYS/ ’ FUli INPUT j3 GOTO 725 
720 OPEN M59WH /GIRLS/’ FOR INPUT^3 
725 INPUT FRI]M 3^ C 



700-730 

OPEN APPROPRIATE DATA 
FILE AND READ ALL NAMES 



727 
723 

789 

730 

731 

738 
733 
73^1 

735 

736 

737 
733 

739 
7^9 
750 
760 
770 
730 

790 
795 
300 
MONDAY 
30 5 PR 



I$(UiN) FOR N=1 TO 25 



FOR U=1 TO C 
INPUT FROM 3j 
NEXT IJ 
CLOSE 3 
FOR U=1 Til C 

IF LEFT(A( 1 )^3)=LEFT( I$(U^ 1)^3) 

I F LEFT(A(2)i8)=LEFT( I£(Ui2),8) 

PR. "NAME ALREADY ON FILE^ ":C:" 

NEXT U 

IF ICO(A(7),"F’SO) OR IClJ(A(7) 

□ PEN ’159WI? /BOYS/’ FGHiJUTPUT^ AGOTiJ 
□PEN '159UH /GIRLS/' FOR OUTPUT ^ A 
PRINT ON Aj C+1 
PR. ON Aj A(I) FOR 1=1 TO 16 



THEN 733 
THEN 73/| 
ENTRYS.' 



ELSE 735 
ELSE 735 
' GQTID 30 0 



730-735 

CHECK IF NAME IS 
ON FILE ALREADY 



i"G"iO) 



THEN 

739 



733 



736-795 

IF NAME NOT ON FILE, 
OPEN FILE FOR OUTPUT 
AND ADD NAME 



PH. (DN/D 
PR. ON Aj 
PR. ON 
C PHI NT UN 
CLOSE A 
PR. "NAME 
PR. PRc " 
IN THE 
"GOOD 



}J(I) FOR 1=2 1 TO 23 
A( 17) 

B(I) FOR 1=86 TO 30 

Aj i$(u^n) for n=i to 



25] FOR U=1 TO C 



ON FILEi ":C+l:" ENTRYS." 

REMEMBER TO SEE THE NOTICE 
COMPUTER ROOM. " 

LUCK!" END 



WHICH WILL BE POSTED NEXT 



SAMPLE RUN of /DATE/ 



DATING SERVICE INSTRUCTIONS. 



1. ANSVER THE QUESTIONS IN THIS PROGRAM AS- TRUTHFULLY 

AS YOU CAN. THE INFORMATION YOU SUPPLY WILL BE STORED IN A CON- 
FIDENTIAL FILE. 

2. WHEN YOU HAVE RECEIVED THE MESSAGE *NAME ON FILE*# 

YOU CAN BE SURE THAT YOUR NAME AND INFORMATION HAVE BEEN SAVED. 

THAT IS ALL YOU HAVE TO DO. 

3. COMPARISONS ARE RUN ONCE EACH WEEK ON FRIDAY 

OR SATURDAY. TO FIND OUT IF YOU VERE MATCHED UP WITH ANYONE# SEE THE 
NOTICE IN THE COMPUTER ROOM WHICH WILL BE POSTED EVERY MONDAY. 

er|c 7 

........... ... 



I 



7 



r 



♦♦♦NOTE*** IF YOU HAVE RUN THIS PROGRAM BEFORE# 

YOUR NAME IS ALREADY ON FILE AND YOU SHOULD NOT BE RUNNING 
IT AGAIN! IF THIS IS THE CASE# ESCAPE NOW! 

SUPPLY THE FOLLOWING INFORMATION! 

LAST NAME-BAY tfOY 
FIRST NAME- AVERAGE 
MIDDLE INITIAL-F. 

ADDRESS -2020 ELM STREET 
CITY -ANYWHERE 
STATE-PA. 

ZIP-15000 

PHONE NUMBER-41210000 
SEX -MALE 
AGE- 16 

height (INCHES) -63 
WEIGHT- 150 

COLOR OF HAIR (BLONDE# GRAY# BROWN# BLACK#RED) -BROWN 
COLOR OF EYES-BLUS 



RATE YOUR PERSONALITY ON A 1 THROUGH 5 BASIS. LET 1 BE VERY SHY 
AND 5 BE QUITE OUTGOING. TYPE IN THE NUMBER WHICH YOU DECIDE 



ON 






-A 



PNSVER THE FOLLOWING QUESTIONS! 




WOULD YOU LIKE 
HEIGHT? 

-SAME HEIGHT 
WOULD YOU LIKE 



A TALLER OP. 
AN OLDER OR 



SHORTER GIRL# 
YOUNGER GIRL# 



OR ONE ABOUT 
OR ONE ABOUT 



THE SAME 
THE SM E AGE? 



-OLDER 

RATE THE PERSONALITY OF THE GIRL 
YOU WOULD LIKE IN THE 

SAME MANNER WHICH YOU DID WITH YOURSELF. 



TYPE IN THE NUMBER. 



WOULD YOU LIKE SOMEONE WITH INTERESfS SIMILAR OR DIFFERENT 
TO YOUR OWN? 

-SIMILAR 

WHAT COLOR HAIR WOULD YOU LIKE ON YOUR GIRL 
(BLONDE# GRAY# 

BROWN# BLACK# RED)? 



*BLAC K 

WOULD YOU KISS A GIRL ON YOUR FIRST DATE? 

-YES 

DO YOU USUALLY GO, TO BED BEFORE# AFTER# OR AT 11 P.M.? 

—AT 1 1 

THE COMPUTER WILL NOW PRINT A LIST OF DIFFERENT HOBBIES. 
AND INTERESTS WHICH YOU MIGHT HAVE. THERE WILL BE A NUMBER 
BESIDE EACH ONE. AFTER THE LIST IS THROUGH BEING PRINTED# 

A DASH WILL BE PRINTED. PICK OUT ONE OF THE THINGS IN THE 
LIST WHICH INTERESTS YOU# TYPE THE NUMBER WHICH IS BESIDE 
IT# AND HIT A RETURN. ANOTHER DASH WILL BE PRINTED. YOU 
MAY DO THIS FIVE TIMES FOR FIVE DIFFERENT INTERESTS BUT# 

IF YOU WANT TO STOP AFTER JUST TWO OR THREE# JUST 
HIT A RETURN WITHOUT A NUMBER AFTER THE DASH. 

HERE IS THE LIST. 









m 



m 



8 



1-BASEBALL 2- BASKETBALL 3-FOOTBALL OR SOCCER 4-QOLF 
5-HOCKEY 6-TENNIS 7-SWIMMIN6 8-BlCYCLING 9-OUTDOORS (CAMP- 
ING# HIKING# ETC.) 

lO-BIOLOGY 11-CHEMlSTRY 12 -MATHEMATICS 13-PHYSICS 
14-COMPUTERS 15-ELECTRONICS 16-MECHANICS 
20-CLASSICAL MUSIC 21 -COUNTRY -WESTERN 22-HARD ROCK 
23 -POPULAR 

30-ACTING 31 -DANCING 32-READING 33-VRITING 34 -PHOTOGRAPHY 
35-SEVING 36-BASKET WEAVING 37-EATING. 

OK# INPUT THE NUMBERS NOW. 

-2 

-6 

-14 

-22 

-37 

NAME ON FILE# 15 ENTRYS. 



REMEMBER TO SEE THE NOTICE WHICH WILL BE POSTED NEXT 
MONDAY IN THE COMPUTER ROOM. 

GOOD LUCK! 



SAMPLE RUN of /COMPILER/ 



DATING COMPILER# VERS. DEC. 1# 1971 



LAST NAME- SMITH 

FIRST NAME- BETSY 

SEX- FEMALE 



NUMBER OF PEOPLE COMPARED* 10 



THE COMPUTER FEELS THAT THE FOLLOWING PEOPLE WOULD MAKE 
A BIG HIT WITH YOUl 

NOBODY 

THE COMPUTER FE^S THAT THE FOLLOWING PEOPLE WOULD MAKE 
A FAIRLY BIG HIT WITH YOUt 

NAMEt JIM H. JONES 

ADDRESSI 139 HARTWOOD DR« ' 

^ PITTSBURGH# PA. 15208 

PHONE NUMBER I 731-8171 

DON*T BE TOO SHOOK IF YOU DIDN'T GET MATCHED UP WITH 
SOMEONE. ANOTHER RUN WILL BE. MADE THE END OF THE WEEK 
AND MAYBE YOU WILL HAVE BETTER LUCK. MEANWHILE# 

YOU ARE ALREADY ON FILE. GOOD LUCK! 

er|c ^ 
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LAGRANGIAN 



Interpolation/Eitrapolation 




On page 3 the simplest case (two observations) is considered, 
and you are shown how to write a linear interpolation/extra- 
polation progreim (these terms are explained on page 4) . 

You will then be asked to write a quadratic interpolation/ 
extrapolation (page 5) . 

An option will be suggested in which you write a version of 
this program which prints out the coefficients of the quad~ 
ratio polynomial (page 6) . 

A Finally, you will write the n^^ order polynomial interpolation/ 
extrapolation program. This most general version reads n 
data points and makes it possible to estimate values of the 
dependent variable with a polynomial of degree n-1 (page 7) . 

PROJECT SOLO / Ve.pt, Compute.^ Science. / Untv. Pitt^bafigh [1 521 3] 

Module 0129 / f/tank OUmbeUi/ (PS) 
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INTERPOLATION AND EXTR/VPOLATION 
USING LAGRANGIAN POLYNOMIALS 



Introduction 

There are many real world mathematical problems in 
which you are given a table relating one variable to 
another. This table often comes from the experimental 
work of an engineer or scientist. The problem is that 
you may want to know the value of the dependent variable 
for some value of the independent variable which isn't 
included in the table. For example, Table 1 has accel- 
eration figures for a Porsche 911S. 



V 


T 


0 


o 

• 

o 


10 


— 


20 


2.7 


30 


— 


40 


5.1 


50 


— 


60 


— 



The. A^ndzptndznt vaK^ablz 
^■6 V» thz vzZozLty takZzh 
tkz Po^izhz A.zazkz6 in.on\ 
a 6tandyCng 6tan.t [zzko 
Tablz 1 20 2.7 m.p.k.}. 

Thz dzpzndznt \}dKZabZ.z 
4,6 T, thz zZap6zd ttmz 
A.zqutA.zd to fizoizh I/, 
6toiKttnQ at zzfio 
vzZoctty . 

Notice that elapsed time figures are missing for V = 10, 

V = 30, V = 50, and V = 60. (T is actually missing for all 
values of V zxczpt 0, 20, and 40. ... Think about it) . 

For purposes of comparison with other sports cars , it 
might be important, for example, to know the times for 
accelerating from zero to thirty and from zero to sixty . 

The solution to such modern problems is based on the work of 
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an 18th century mathematician named Lagrange. The method used is 

called "poli/nomZai intzKpolat^on/ zxtA.apotat^on" and it is based 

on the fact that given n points i;X 2 ,y 2 ) t ••• 

in the xy plane there is one and only one polynomial of the 
ri“"l n*2 

form y = a^^x + ^ 2 ^ + . . . + + a^ which passes 

through those points. 

What tht6 mzani t6: gtven the n potnt6 (x 2 ,i/ 2 )> 

*** l6 one and only one polynomtat o^ degree n-1 

6ueh that 



^2 ■ ^ 1^2 ^ 2^2 



+ a .X. + a 
n-1 1 n 

" \- 1^2 " 



y = ^ + a.x + 

n 1 n 2 n 



* a - X + a 
n-1 n n 



The p^ooii ol thii ^aet t6 too involved to p/ie6ent in 
thi& module. you afie inteA.e6ted, you ean ^tnd a p/ioo^ 

tn "Elementary NameA.ieal AnaZy^t^" by S. V, Conte, McG^auo- 
Htll 1965, page 7 3. 



Using the Laqrangian Polynomial 

In brief , what you do is to assume that the dependent 

variable y is related to the independent variable x by the 

polynomial of order n-1 (determined by the data that you have) 

for all values of x. You then find the polynomial (see pgs. 4, 

6,8), and simply evaluate it for the missing values of x to 

complete the table. For example, the three points (0,0), 

(20,3.8) and (40,5.1) determine a second degree polynomial 

which can then be used to find the values of T corresponding 

to V = 30, and V = 60. What Lagrange did was to develop a 

method for finding the coefficients a^^, ..., a^^ of the needed 

polynomial, given the points •••r ' 
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1. The Simplest Case: 

Linear Interpolation and Extrapolation 

Consider two points in the x-y plane as in Figure 1. 




In the equation: 

X “X, X - 




X 



if we substitute x^^ for x we get y = 0 *y 2 + “ ^1* 

On the other hand, setting x equal to X 2 gives us 
y = l'y 2 + O’Yi = Y 2 - 

But if we take the original equation 1) and combine terms 
as follows : 



We see that the equation has a graph which is a straight 
line since it is of the form y = a^^x + a 2 * (Be sure that you 
see how equation 2) follows from equation 1) • What happens is 
that all terms which are multiplied by x are collected and 
the same is done for the terms which are not multiplied by x.) 

Hence, we have the following facts: 

1. Equation 2 has a graph which is a straight line. 

2. The points (Xj^,yj^) and (X 2 ,y 2 ) that line. 

3. There is one and only one line through a pair 



Putting these together we get that 2) is the equation of 



of points . 



the line through the points and (X 2 /Y 2 ) • 
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Projects 

lA. Study the listing of the interpolation program inter- 
action below and write a progreim like the one that 
produced the listing. 



>RUN 



INPUT X. ANV y FOR THE FIRST POINT 
?5, 60 

INPUT X ANV y FOR THE SECONV POINT 

? 10 , 120 



INPUT A VALUE OF X FOR WHICH yOU WANT 

y TO BE ESTIMATED 

?15 

THE EXTRAPOLATEV VALUE OF V IS ISO- 
FOR X = 15 



NOTE : When an ahtlmoitt 

y madz jjo-'t a value. 

OjJ X voklak ^4 between 
given valuer x tke. 
pA.oc.z4 6 l6 called In- 
tefipolatlon; li tke 
value. 0 ^ X l6 gA.eate.^A. 
tkan (oA. Ie66 tkan) 
all ol tke given vaZue6 
OjJ X tke pA.oce66 l4 
calle.d extA.apolatlo n . 



VouA. pA.ogAam 6kould 
be able to decide 
MketkcA It ka6 been 
given an Interpolation 
OA. extA.apolatlon pA.o- 
blem,and utA.lte tke 
-appA.opA.latc me66agc. 



IB. Use your program to find the missing data in the 
below . 



tables 



TIME 


TEMPERATURE 


7 A.M. 


43 


10 A.M. 


- 


11 A.M. 


67 



YEAR WORLD POPULATION 
100 A.D. 137 million 

1000 A.D. 275 million 

2000 A.D. 



you may not believe tke A.c6ult tkat you got ^oa tke 
population oi tke mrld In 2000 A.V. {tke population o^ 

Cklna In 1971 l4 about 800 , 00 0 , 000 ) even tkougk tke ^lguAe6 
^oA 100 A.V. and 1000 A.V. are coAACct. Tkl4 demon^tAatei tke 
iact tkat polynomial Interpolation I extrapolation Involves an 
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0 . 6 6 unt P't^o n. tho.t mciy no-t bz t^u^-vio.fnzZ.y i-hot t.h.z po^.yn.otri'io.Z 
dz6c^ibz6 the ^unctZon ^ojl data otkzK than tkz gtvzn data. 
AppaKzntty (JOo^Zd poputatton t6 not a ttnzaK ^unctto n tttnz. 

2. QUADRATIC INTERPOLATION AND EXTRAPOLATION 

In the same way that two points determine a line (that 

is, a polynomial of the form y = a^x + a 2 ) three points 

2 

determine a quadratic polynomial of the form y — a^^x + 
a2X + a3- 

Equation 3) is the interpolation formula for the 
quadratic which is determined when three points (x^^/yj^) 
(X 2 ,y 2 )/ (^ 3 / 73 ) are given. 

(X- X.) (X- X.) (X- X,) (X- X3) 

3 )y = ? 2 _y + \ , -- y 2 

(x^ -X2) (x 3^-X3) (X2 -x^^) (X2 -X3) 

^ (X- Xj^) (X- X2) 

(X3 ^^3 ”^ 2 ^ 

Substitute x^^, X 2 / and X 3 for x in equation 3 and then 

simplify to verify that the three given points lie on the 

curve defined by the equation. Then by multiplication and 

2 

combining terms convert equation 3) into the form y - a^^x + 
^2 ^ ^ ^ 3 * 

You should get expressions for a^^, a 2 / and a 3 that 
involve only the six numbers x^^, X 2 / X 3 , y^^, y 2 / and y 3 . 

* Extrapolation is more likely to give false values than 
interpolation . 





MORE PROJECTS 



2A. Write an interpolation/extrapolation program in BASIC 
which reads in three (3) data points {X 2 ,Y 2 ^ ' 

and uses a quadratic polynomial (degree 2) to 
estimate values of the dependent variable y for other 
values of the independent variable x. 

2B. Use this program and the data on page 1 to find the 
“zero to thirty" and “zero to sixty" times for a 
Porsche 911S. 

3. PRINTING OUT THE QUADRATIC POLYNOMIAL 

(OPTIONAL) 

Write a BASIC program that reads in three (3) points 
and prints our the c.oz^^ic.^e.nt6 of the quadratic polynomial 
determined by them. See the sample output below: 

>RUN 

WHAT ARE THE X AMV V COORVJNATES OF THE FIRST POINT? 

? 0,2 

WHAT ARE THE COOmNATES OF THE SECONV POINT? 

? 1,1 

ANV THE THIRV POINT? 

? 2,2 

THE dUAVRATIC IS 
I*X+2+-2*X+2 
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4 . Nth Order Polynomial 
Interpolation and Extrapolation 

It looks like the same reasoning that works for equations 
1) and 3) might also work for n points. That is, it may be 
that equation 4) is the expression for the one and only poly- 
nomial of degree n-1 that fits the n points ,yj^) . . . (Xj^,y^) . 

n-1 term product 

I \ 

(x-x«) (x-x«) . . . (x-x_) 

4) y = ^ 2 5 

(Xj^-X2) 



(x-x^) (x-x^) . . . 

(x2”Xj^) ix2-x^) . . . (x2"Xj^) 



+ 



• • • 



(x-Xj^) (x-x^) • . • (x-x^_^) 



n 



Let's look more closely at one of these terms 

(x-Xj^) (X-X2) . . . (x-x^_j^) (x-x^_^j^) . . . (x-x^) 

(x^-x^) (x^-X2) . . . ^ 



Notice that (x-x^) is missing from the product in the 
numerator and (x^-x^) is missing from the product in the 
denominator. 
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This term is equal to 0*y^ for and x = 

Xi^l,...Xn (that is, any of the given x's other than x^) 
and is x = x^. 

In each numerator there is an n-1 term product each 
term of which is of the form (x-x^) . If such a product is 
expanded it turns out to be a polynomial in x of degree n-1. 
Now each term in the sum (each term of equation 4) is 
therefore a polynomial of degree n-1. Furthermore, 



and a constant times a polynomial is a polynomial of the same 
degree. Finally the entire right hand side of 4) is the sum 
of n polynomials of degree n-1. But the sum of polynomials 
of degree n-1 is also a polynomial of degree n-1. 

Hence, just as for the line and the quadratic we have. 

1) Equation 4) is a polynomial of degree n-1 

2) The points (x^,y^) . . . (Xj^,y^^) all "satisfy” 
equation 4. 

3) There is one and only one polynomial of degree 
n-1 that is satisfied by n points. 

Hence 4) is the polynomial of degree n-1 that fits 

the points . 




is a constant 
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EVEN MORE PROJECTS 

4A. Write a program in BASIC which reads a number n, then 
reads n data points (xy pairs) and uses a polynomial 
of degree n-1 to extrapolate or interpolate. 

4B. Try your program on the following population data to 

see whether you get better results than you did in IB. 



POPULATION OF 
YEAR THE WORLD 



2000 B.C. 


108 million 


1000 B.C. 


120 million 


100 A.D. 


137 million 


1000 A.D. 


275 million 


1960 A.D. 


3,003 million 


2000 A.D. 


• 



5A. See cover picture for this problem. A UFO has been 
sighted in the range 0<x<9. The cover picture shows 
five "sightings" at points marked Assume this 

curve is the path through space of an alien UFO. 

Have the computer output "prediction" points (0 ) 
which indicate where the saucer can be intercepted 
for X = 9, 9.5, 10, 10.5, 11, 11.5, and 12. 

5B. Draw your own "smooth" UFO curve, and experiment to 
see if increasing the number of "sighting" points on 
the left Slide of the screen helps you better predict 
the path of the UFO on the right side of the screen. 
(You'll have to draw the entire path, and then pretend 
you only have data for the left half.) 



HINT; 




This curve is best fitted with 
a 5th degree polynomial since 
it "cuts" a straight line five 
times. Therefore six "sighting" 
points are needed . 
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The following is a solution program and run for the 



5 PRINT *'WHAT ARE THE X AND Y VALUES FOR THE FIRST POINT?" 

6 INPUT X1«Y1 

10 PRINT "X AND Y VALUES FOR THE SECOND POINT?" 

11 INPUT X2*Y2 

15 PRINT "FOR THE THIRD POINT?" 

16 INPUT X3*Y3 

19 PRINT "INPUT A VALUE OF X FOR WHICH YOU WANT Y TO BE ES 

20 INPUT X 

30 P«Y1«<(X-X2>«CX-X3>>/<<X1-X2>«(X1-X3>> 

40 P>P^Y2<^( CX-Xl )*(X-X3> >/< CX2-X1 )«(X2-X3) ) 

SO P«P^Y3<^( (X*X1 )4><X-X2> )/( <X3-X1 )«(X3-X2) ) 

60 PRINT "FOR X»"IXJ"Y«"IP 
70 END 



WHAT ARE THE X AND Y VALUES FOR THE FIRST POINT? 

720*50 

X AND Y VALUES FOR THE SECOND POINT? 

730*40 

FOR THE THIRD POINT? 

740*60 

INPUT A VALUE OF X FOR WHICH YOU WANT Y TO BE ESTIMATED 
745 

FOR X« 45 Y» 81*25 



problem 2 A 



JAN 11 12124 /LAGl/ 



>RUN 




I 
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The following is a solution program and run for the 
problem 3A. 



JAN 11 12t27 /LAG2/ 



10 PRINT **WHAT ARE THE X AND Y COORDINATES OF THE FIRST POINT?” 

11 INPUT XI #Y1 

20 PRINT **WHAT ARE THE COORDINATES OF THE SECOND POINT?” 

21 INPUT X2#Y2 

30 PRINT ”AND THE THIRD POINT?” 

31 INPUT X3#Y3 

/|0 LET AaYl/<<Xl-X2)*<Xl»X3)> 

50 LET A«A^Y2/< <X2-X1)*<X2-X3)>' 

60 LET A«A4Y3/<<X3-X1)*<X3-X2)) 

70 LET B—<Y1*<X2*X3)/C<XI-X2)*<X1-X3))) 

80 LET B«B-<Y2*<X1^X3)/<<X2-X1>*<X2-X3))> 

90 LET B»B-<Y3*<X1^X2)/<<X3-XI)*<X3-X2))) 

100 LET C«X3*X2*Yl/<<Xl-X2)*<Xl-X3>) 

110 LET C«C^X1*X3*V2/<<X2-X1 )*<X2-X3)) 

120 LET CaC^Xl*X2*Y3/<<X3-Xl)*CX3-X2)) 

130 PRINT ”THE QUADRATIC IS” 
lAO PRINT A*”*Xt24”tBI”*X4”fC 
150 END 



>RUN 

VHAT ARE THE X AND Y COORDINATES OF THE FIRST POINT? 
? 0»2 

VHAT ARE THE COORDINATES OF THE SECOND POINT? 

? 1#0 

/V4D THE THIRD POINT? 

? 2#2 

IHE QUADRATIC IS 
24>Xt24-A4*X<*- 2 
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The following is a solution program and run for the 
problem 4A. 



JAN 11 12 <29 /LAG3/ 



10 

20 

21 

25 

26 
28 
30 
40 
50 
60 
70 
80 
90 
100 



DIM X(20)#Y(20)»B(20) 



••HOW 

N 

••FOR 

XI 

••NOW 



MANY DATA POINTS (COORDINATE PAIRS) DO YOU HAVE?** 
WHAT VALUE OF X DO YOU WANT Y TO BE ESTIMATED?** 

Y PAIRS (DATA POINTS )•* 



PRINT 
INPUT 
PRINT 
INPUT 

PRINT ’’NOW INPUr*INJ**X 
FOR I*»l TO N 
INPUT XCI )#Y(I) 

NEXT I 
P«0 

FOR K«l 
B(K)*1 
FOR J«1 
IF J«K 



TO N 



TO N 
THEN 120 

110 B<K)«B<K)*<(X1-X(J))/<X<K>-X<J>)) 
120 NEXT J 
130 P»P4-B<K>»YCK) 



140 NEXT K 

150 PRINT ••FOR X«**IX1 r*Y»**IP 
160 END 



>RUN 

HOW MANY DATA POINTS (COORDINATE PAIRS) DO YOU HAVE? 
?6 

FOR WHAT VALUE OF X DO YOU WANT Y TO BE ESTIMATED? 
?60 

NOW INPUT 6 X Y PAIRS (DATA POINTS) 

? 0#0 

?30»4«3 

?40#5«7 

?70»31 

?80»42 

?90»55 

FOR X* 60 Y» 20«545A7619 
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OPTICS 

PROJECT SOLO 

VzpafitmQ.nt ComputZK Scyczncz 
UnivzK6A,ty oi Pltt^biifigh [15213] 
Uodaiz #0067 
J. M. SkoA.z (T) 

8. MzZ^nzA. 1ST] 



W This module will concern 
itself with reflection, refrac- 
tion, and the physics of curved 
mirrors and lenses . There are 
three parts to the module. The 
first two parts require that 
you solve problems generated by 
programs already stored in the 
computer. The third part re- 
quires that you write your own 
progreim. 




Figure 1, Location of an Image by Ray Tracing 



Part 1 - REELECTION 

First we shall examine the formation of images by curved mirrors. 
The laws of reflection state; (1) the incident ray, the reflected 
ray, and the normal to the reflecting surface lie in the saiae plane; 
and (2) the angle of incidence is equal to the angle of reflection. 
You are no doubt familiar with the images formed by plane mirrors, 
such as the one on your medicine' cabinet at home. The image of an 
object in a plane mirror is a virtual image. It is the Scone size 
as the object, erect, reversed right and left, and as far behind 
the mirror as the object is in front of the mirror. 

The case is slightly different when we consider curved mirrors. 
Concave mirrors cause light to converge. Different types and sizes 
of images may be formed by concave mirrors depending upon the dis- 
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tance of the object from the mirror. Concave mirrors vary in size 
from an ordinary small mirror to the huge 200-inch reflector on 
Palomar Mountain, in California. 

We can find the size and location of an image due to an object 
placed at a finite distance from a concave mirror by ray tracing as 
shown in Figure 1. All parallel rays as shown are brought to a com- 
mon focus at F. This point F is called the focal point of the mir- 
ror and the distance FA is called the focal length of the mirror. 

We measure the distances S© sind Si from the focal point to the object 
and image respectively. If we call H© and the height of the ob- 
ject and the image, it can be shown by similar triangles that: 

Hi/H^=£/S^.Si/f 

using simple algebra it can be shown that: 

The difference between a real image and a virtual image is that 
there may be no light passing through a virtual image, but the light 
is sure to pass through a real image, and a photograph can be made 
by placing the film at the image. Whenever the object is placed 
closer to the mirror than its focal length, the image formed is vir- 
tual. Whenever the object is placed beyond the focal length of the 
mirror, the image formed is real. But whenever the object is placed 
at exactly the focal length from the mirror, no image is formed. 

It's Problem Solving Time 

After studying the sample run on page 5, logon the computer, 
enter NBS, and then type: 

RUN 159AJS /MIRROR/ 

When you finish your computer run, go to part 2 of this module. 
Be sure to save your output from part 1 . 



Part 2 - INDEX OF REFRACTION 

The index of refraction of a. material, for which we use the sym- 
bol n, is defined as the ratio of the speed of light in a vacuum to 
the speed of light in the substance under consideration. Since the 
speed of light in air is only slightly different from the speed of 
light in a vacuum, for convenience we set the index of refraction of 
air equal to unity. 

In 1621, Willebrord Snell discovered a relationship between the 
index of refraction of a material and the angles of incidence and 
refraction of light. This mathematical relationship, known as Snell's 
law, is: 



n^^ sin ®2 
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where 6i and 02 are defined as in Figure 2. The index of refrac 
tion of a material may also be found in a table such as the one 



below. 




The Indices of Refraction of 



Some 


Common Materials 


1.11 


liquid hydrogen 


1.22 


liquid oxygen 


1. 33 


water 


1.38 


liquid chlorine 


1.47 


glycerin 


1.54 


salt 


1.60 


quartz 


1.66 


liquid bromine 


1.93 


liquid sulfur 


2.10 


liquid tin 


2.42 


diamond 


2.60 


lead 


3.34 


iodine 


4.22 


sodium 



LENSES 

Lenses are instruments which use the laws of refraction to form 
images of objects. We shall be concerned with converging lenses » 
that is , lenses which bring parallel light incident upon them to a 
commom focus (the rays of light converge at a point). As in the^ 
case of the curved mirrors we shall call -Oiis point the focal point, 
and the distance from the lens to this point the focal length of the 
lens . 



If a lens is thin compared to its focal length, no matter which 
side of the lens the light enters, the focal length is always the 
same. This result is also predicted by an application of Snell's 
law from which it can be shown that: 

l/f=(n-l) (i +5 ) 

Rl R2 
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where Ri and R2 are the radii of the opposing surfaces and n is the 
relative index of refraction for light passing from any medium into 
the lens. This equation is known as the "lensmaker's formula”. We 
can show that interchanging and R2t which is the same as turning 
the lens over, has no effect on the focal length of the lens. 

It*s Problem Solving Time 

To access the next practice program first enter NBS, and then 

type; 

RUN 159AJS /REFRACT/ 

Before using the computer study the sample RUN of /REFRACT/ shown on 
page 6. When you finish your computer run, go to Part 3 of this 
module, being sure to save your output from Part 2. 



Part 3 - YOU'RE ON YOUR OWN 

There is no "pre-written” program on file for Part 3. You should 
write your own program (s) for the computer (or use the desk— calculator 
direct mode) to complete the following table: 



Image 
distance 
(cm. ) 


Object 
distance 
(cm. ) 


Focal 

length 


»i/Ho 


82 


9 






30 


30 






82 






2 


86 






43 




100 


67.8 






53 


16.3 








15.5 


3.75 






39. 3 


43 



If you have any difficulties or questions concerning this module, 
please see your teacher. Also, if you have any suggestions for im 
proving this module please let him (or her) know. 



5 -^ 

o 

ERIC 



5 



>RUN 159AJS /MIRROR/ 

THIS PROGRAM WILL DEAL WITH THE PHYSICS 0F CURVED MIRRORS. 

THE F0RMULAS WHICH Y0U WILL NEED MAY BE F0UND IN THE M0DULE, 

PR0BLEM 1 

THE F0CAL LENGTH 0F A CURVED MIRR0R IS F0UND T0 BE 1.34E+1CM. 
IF AN 0BJECT 3.72E+1CM. HIGH IS PLACED 7.71E+1CM. AWAY FR0M 
THE MIRR0R. FIND THE P0SITI0N AND THE HEIGHT 0F THE IMAGE 
0F THE 0BJECT. FIRST TYPE IN THE IMAGE DISTANCE FR0M THE 
MIRR0R IN CM. 

?@NBS 

VER. MAR 10 8:07 

>PRINT 37.2*13.4/63.7 

7.825431711 

>PRINT 7.825/37.4+2*13.4 
2. 818682796 

>EXIT 
?16. 2 
RIGHT 

N0W TYPE IN THE HEIGHT 0F THE IMAGE IN CM. 

?7. 825 
G00D 

W0ULD Y0U LIKE T0 TRY AN0THER PR0BLEM LIKE THIS? 

?N0 

0.K. , H0W AB0UT TRYING A PR0BLEM LIKE THIS. 

PR0BLEM 2 

THE IMAGE 0F AN 0BJECT PLACED 4.65E+1CM. AWAY FR0M A CURVED 
MIRR0R IS F0UND T0 BE L0CATED 3.77E+1CM. AWAY FR0M THE MIRR0R. 
CALCULATE THE F0CAL LENGTH 0F THE MIRR0R. 

?@NBS 

VER. MAR 10 8:07 

>PRINT SORT (46.5*37. 7) 

41. 86943993 

>EXIT 

741.87 

RIGHT 

IS THE IMAGE REAL 0R VIRTUAL? 

7REAL 

THAT'S RIGHT 

W0ULD Y0U LIKE T0 TRY AN0THER PR0BLEM LIKE THIS? 

?N0 

CHECK T0 MAKE SURE Y0U UNDERSTAND THE RELATIONSHIPS INV0LVED. 
SH0W THIS T0 Y0UR TEACHER. G00D BYE. 




>RUN 159AJS /REFRACT/ 

THIS PR0GRAH HILL DEAL WITH REFRACTI0N AND THE PHYSICS 0F 
THJN LENSES* 

THE F0RMULAS WHICH Y0U HILL NEED MAY BE F0UND IN THE 
M0DULE. 

CALCULATE THE INDEX 0F REFRACTI0N 0F A MATERIAL 
IF LIGHT INCIDENT UP0N IT AT AN ANGLE 0F 2.41E+1 DEGREES 
IS REFRACTED T0 AN ANGLE 0F 1.62E+1 DEGREES 
TYPE IN THE INDEX 0F REFRACTI0N 0F THE MATERIAL. 

?eNBS 

VER. MAR 10 8 1 07 

>PRINT SIN (24. 1/57. 4 ) /SIN (16 . 2/57. 4) 

1.463684021 

>EXIT 

71.46 

0.K. 

D0 Y0U THINK THAT THIS MATERIAL MIGHT BE 0NE 0F TH0SE LISTED 
IN THE M0DUIE 0R S0ME 0THER MATERIAL? TYPE IN THE NAME 0F THE 
MATERIAL 0R '0THER' . 

? LIQUID CHL0RINE 

N0, MY CALCULATI0NS INDICATE THAT THE MATERIAL C0ULD BE GLYCERIN. 
H0ULD Y0U LIKE T0 TRY AN0THER PR0BLEM LIKE THIS? 

?N0 

N0H HE HILL L00K AT THIN LENSES. 

USING THE 'LENSMAKER'S F0RMULA' CALCULATE THE F0CAL LENGTH 0F A 
THIN LENS MADE FR0M GLASS (N=1.5) IF THE RADII 0F THE 0PP0SING 
SURFACES ARE 20 AND 25CM. 

TYPE IN THE F0CAL LENGTH 0F THE LENS IN CM. 

7 OMnc 

VER. MAR 10 8:07 

>PRINT 1000/45.0 

22.22222222 

>EXIT 
? 22.22 
THAT'S RIGHT 

W0ULD Y0U LIKE T0 TRY AN0THER PR0BLEM LIKE THIS? 

?YES 

USING THE 'LENSMAKER'S F0RMULA' CALCULATE THE F0CAL LENGTH 0F A 
THIN LENS MADE FR0M GLASS (N=l*5) IF THE RADII 0F THE 0PP0SING 
SURFACES ARE 30 AND 5CM. 

TYPE IN THE F0CAL LENGTH 0F THE LENS IN CM. 

?8.57 

fJ00D 

W0ULD Y0U LIKE T0 TRY AN0THER PR0BLEM LIKE THIS? 

?N0 

0.K. N0W TRY Y0UR HAND AT WRITING A PR0GRAM T0 S0LVE THE PR0BLEMS 
IN THE M0DULE. 

STUDY HARD F0R THAT TEST COMING UP. 

0H YES, ARNIE ALLDERDICE SAYS 'G00D LUCK'. 

SH0W THIS T0 Y0UR TEACHER* G00D BYE. 




-COPY /INDEX/ TO TPT 
1.11 

LIQUID HYDROGEN 
1.88 

LIQUID OXYGEN 

1.33 

WATER 

1*38 

LIQUID CHLORINE 
1*47 

GLYCERIN 

1.54 

SALT 

1*60 

QUARTZ 

1*66 

LIQUID BROMINE 
U93 

liquid sulfur 

G«10 

LIQUID TIN 
B«48 
DIAMOND 
8*60 
LEAD 
3*34 
IODINE 
4*88 

SODIUM 
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MOaULEgFOR 



These modules au:e intended for use in connection with the 
experimental laboratory, of an advanced placement chemistry course 
(12th Grade). They are designed to allow students to read in measiire* 
ments, have the. calculations done for them , and the results dis- 
played in graphical fashion. It is intended that: 

1. Studentswillbebetterabletoconcentrateontheexper- 
iihental phase of their lab' work. V 

2. They will be encouraged to carry out several runs of 
the experiment, since calculations can be done swiftly , 

' at 'anotheri'time. V . 

3 . When they write a similar program for another experiment 
in the book (or an improvement on this, one they, will find 
it a valuedile new. way to organize their understanding of 
ch^ical theory. 

Summary of Relevant Information: V : 

Text Reference 

Access Code 



Module 


Subject 


Lab. Manual* 


Text** 


0124 


Stoichiometry 


Exp. 9 


103-108 


0125 


Greun-Equiva- 
lent. Mass of 
Magnesium ; 


Exp. 13 


121-123 


0126 


Molecular itess 
from Freezing 
Point Lowering 


Exp. 16 


207-221 




RUN 159DK /SPEX9/ 
RUN 159DK /SPEX13/ 



RUN l5 9DK /SPEXl 6/ 



Suggested Use of the Modules: 

(a) Stiidents may us|e those progr^s already on file as "data- 
analysfis" tools , and use the output ais ah integral part of their ; 

final;. -.lab ■.re^rtv'":^;;;-'> '■'’'■V:. '.;.: - 'r. 

(b) Students lioay be invited (or assigned )^^ t^ . create similar 
progrcuns for other experiments a^/or improve on file 

bn the foilow'ing pages :you will vfind; sample runs of ^ 
gram. A flowchart of V the program ./SPEX16/ giyen^ 
which follows it shows the actual ; statements a^ pTOgreunmihg; 
details . The other programs. .a^^ shorter than /SPEXie/ : and can ; be 
progreunmed using the seune techniques. > 



*. Sieinko , Micheil. ; j A./ Plahe,;^ Ex^rimehtal :Ch^ 

3rd Ed (Laboratory ) / McGrawrHill . N ; Y . . 1 966 . ^ 

**Siehko/ Micheil J. arid Roiierti^ Plane Ed . , 
Mc.Graw-Hill'y.'N - -V' . 



PROJECT SOLO / Vzpt; ol^ 

Uod(il&^ it 01 24-6 / VoZoA.e^ KubZak(T) / ,Joe£ 8e/tez (S) 
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EXPERIMENT 9l STDICKtOMETRY 



/DATA\ 



PART Al POTASSIUM CHLORATE 

LIST THE FOLLOVING IN GRAMS. 

MASS OF TEST TUBE PLUS MN-OBl^Usi^ 

MASS OF TEST TUBE# MN*Q2# Awn> PHlffgtiii^iJinBW 
MASS OF TEST TUBE# HN-02# AND RESIDUE^2^U 

PART Bl UNKNOWN MIXTURE 

LIST THE FOLLOVING IN GRAMS* 

MASS OF TEST TUBE PLUS MN-OBlQ^j 
MASS OF TEST TUBE# MN-02# ANDlMNOWNtJ 
MASS OF TEST TUBE#’ MN02# AND RESIDUE|<^ 







/RESU 
PART Al POTASS 

MASS (IN GRAMS) OF OXYGEN LOST 
MASS (IN GRAMS) OF K-CL (RESIDU 
NU^ER OF GRAM-ATOMS OF OXYGEN 
NUMBER OF MOLES OF K-CL 
NUMBER OF GRAM-ATOMS OF X IN OR 
NUMBER OF GRAM-ATOMS OF CL IN 0 
NUMBER OF GRAM-ATOMS OF 0 IN OR 

SIMPLEST FORMULA OF POTASSIUM C 
PART Bl UNKN 

MASS (IN GRAMS) OF UNKNOWN MI XT 
MASS (IN GRAMS) OF OIOTGEN LOST 
NUMBER OF GRAM-ATOMS OF OXYGEN 
NUMBER OF MILES OF K-CL-03 DECO 
MASS (IN GRAMS) OF K-CL-03 IN 0 

PER CENT BY MASS OF K-CL-03 IN 

DO YOU HAVE ANOTHER SET OF DATA 
GOODBYE FOR NOV 



SAHPLE RUNS . 
7SPEX9/ 

/SPEX13/ 

^ffl^UMBERS ARE 
TYPED IN BY STUDENT. 



EXPERIMENT I3l GRAM-EQUIVALENT MASS OF MAGNESIUM 



DATA 

FIRST SAMPLE 




TYPE THE HASS OF THE MAGNESIUM ( IN GRAMS ) IC«02^ 
VOLUME OF HYDROGEN EVOLVED C IN MILLILITERS) 
DIFFERENCE IN WATER LEVELS CIN MILLIMETERS) 
TEMPERATURE OF WATER (IN DEGREES CENTIGRADE)! 
AMBIENT BAROMETRIC PRESSURE CIN MILLIMETERS)! 



DATA 

SECOND SAMPLE 



TYPE THE MASS OF THE MAGNESIUM. C IN GRAMS ) i ftOB OJ^ 
VOLUME OF HYDROGEN EVOLVED CIN MILLILITERS) 
DIFFERENCE IN WATER LEVELS CIN MILLIMETERS) 
TEMPERATURE OF WATER (IN DEGREES CENTIGRADE) 1^ i 
AMBIENT BAROHETRIC. PRESSURE CIN MiLLIMETERS)li^3T. 

■ 'RESULTS'^^ 

FIRST SAMPLE 

^G CQUIVM^NT OF WATER COLUMNi 39.338B3S29 
TOTAL PRESSURE IN GAS SAMPLE I 692 .36 1 76A7 
PARTI/U. PRESUME OF H2 I 669.139AA36 

yOLU^ OF H2 AT STP I 20.5009841 

MOLES OF H2 
MOLES OF H« reduced 




SECOND SAI^LE UNITS 
38.23529412 MM. 

693.4647059 MM. 

671.9808335 MM. 

19.53855694 ML* 

I 9.152225046E-P4 8.722570063E-04 

I 1 •830445009E-03 ; 1 .7449140132-03 



GRAM-EQUIVALENTS MG OXIDIZED I 1.830449009E-03 1.7445140132-03 

MASS OF 1 GRAM-EQUim£NT MG I 18.83840806 V 11 .86576883 
AVERAGE V ! 

■ •>' //CONCLUSION/'^ 

..CONGRATUUlTiaNSf ' AN^ 
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•sample run of /SPEX16/ 



CIRCLED NUMBERS ARE TYPED IN BY STUDENT. 



PURE NAPHTHALENE 

WHAT VAS THE HASS OF THE PAPER (IN aRAMS)7(.M5V 

MASS OF NAPHTHALENE PLUS PAPER (IN ORAMS)7 (^0^ 

INCLUDING THE INITIAL READING* 

HOW MANY TEMPERATURES DID YOU* RECORDTQJ^^ 

WHAT VAS THE INITIAL TEMPERATURE^! IN 'O 

WHAT VAS THE 2ND TEMPERATURET^ 

VHAT VAS THE 3RD TEMPERATURE7 

VHAT VAS THE 4TH TEMPERATURE' 

VHAT VAS THE STM TEMPERATUREH 

VHAT VAS THE 6TH TEMPERATURE7 f^9i. 

VHAT VAS THE 7TK TEMPERATURET/fv 

VHAT VAS THE 8TH TEMPERATUREl Qfi 

VHAT VAS THE 9TH TEMPERATURE7 

VHAT VAS THE lOTH TEMPERATURET^^^ 

VHAT VAS THE IITH TEMPERATURET fTS . ±/ 

NAPHTHALENE AND SULPHUR 

VHAT VAS THE MASS OF THE PAPER! IN GRAMS) 7(^96^ 
MASS OF THE SULPHUR AND PAPER (IN GRAMS) TATo! 




INaUDING THE INITIAL READING* 

HOV MANY TEMPERATtmES DID YOU RECORD^Q^ 

VHAT VAS THE INITIAL TEMPERATUR^UN *C) ft 

VHAT VAS THE 2ND TEMPERATURE7/?B.6^ 

VHAT VAS THE 3RD TEMPERATUREl 

VHAT VAS THE 4TH TEMPERATURE^ 

VHAT VAS THE 5TH TEMPERATURETf 

VHAT VAS THE 6TH TEMPERATURE7 6^ 

VHAT VAS THE 7TH TEMPERATURE7 ^76W 

VHAT VAS THE 8TH TEMPERATURE7p6^ 

VHAT VAS THE 9TH TEMPERATURE)^^ 







TIHE- TEMPERATURE GRAPH OF COOLING NAPHTHALENE 



TEMP* 

•C 

90 

89 

88 

87 

86 

85 

8A 

83 

BE 

81 

80 

79 

78 

77 

76 

75 

74 

73 

72 

71 

70 

69 

68 

67 

66 

65 



3 4 5 6 

TIME-MINUTES 
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THE PURE NAPHTHALENE IS REPRESENTED BY THIS SYMBOL I t 
THE SULPHUR SOLUTION IS REPRESENTED BY THIS SYMBOLl ♦ 

THE INTERSECTION IS THIS SYMBOLl ♦ 

FROM THE ABOVE GRAPH. 

ESTIMATE THE FREEXING-POINT OF THE PORE NAPHTMALENEl 79.8 
ESTIMATE THE FREEZING-POINT OF THE SULPHUR SOLUTICN I 76.8 

FREEZING-POINT OF PURE NAPHTHALENE I 79.8 *C 

FREEZING-POINT OF SOLUTION • 76.8 *C 

FREEZING-POINT LOVERING I 3 *C 

MOLES OF SULFUR PER 1000 GM. NAPHTHALENE I 0*43478 2609 MOLES 

KASS OF NAPHTHALENE IN SOLUTION • 19*885 GRAMS 

MASS OF SULPHUR IN SOLUTION • 2*06 GRAMS 

MASS OF SULPHUR PER 1000 GM* NAPHTHALENE I 106*8187711 GRAMS 

MASS OF SULPHUR IN ONE MOLE OF SULPHUR I 245*6831734 GRAMS 

FORMULA OF SULPHUR MOLECULE IN SOLUTI ONI S 8 

^CONCLUSIONSN-,; 

1) THE ACTUAL VALUE FOR THE FREEZING-POINT OF NAPHTHALENE 

IS About 80 «c* 

YOU WERE . CORRECT* 



2) BASED ON THE MASSES OF SULPHUR AND NAPHTHALENE 

YOU USED# THE FREEEING-POINT OF THE SOLUTION SHOULD HAVE 
BEEN ABOUT , ^ . 

■ .:76*7'.«C*-:. 

YOU WERE CORRECT* 

3) THE FORMULA OF THE SULPHUR MOLECULE SHOULD BE S 8* 

YOU WERE ABSOLUTaY RIOHTI 

; /FUN 'S. GAMESN' 

THERE IS A NtMBER ASSIGNED TO EA«^^ POINT GN THE 
GRAPH* THESE ARE THE NUMBERS LABELED • TIME-MINUTES* • FOR 
EACH OF THE TVO SETS OF POINTS AND WITHOUT LIFTING*YOUR 
PENCIL# CONNECT THE DOTS IN NUMERICAL ORDER* TRY TO MAKE 
>SMOOTH"'CURVES* 



EXTRA CREDITI COLOR THE TWO CURVES ON YOUR GRAPH WITH 
DIFFERENT crayons: OR PENS* CHINTI USE A BLEND OF THE COLORS 
; 0« -THE in-ACE WHERE THE CUWES W 
THIS HAS BEEN TOE 16TH IN THE VSPEX/ LAB 
•EKPERlMENTS;SraiES.;'-:;;:V^ " 

' CtiLLECT:VTME: ^WHOLE' .SBTr' ‘V': : V 



o 

ERIC 



It 



I 



LISTING OF /SPEX16/ 



Notice that certain unusual features have been used by 
thisstudent:- 

AC. PI (line 40) me euis ACCEPT PI— produces an input request without a 

EPS=.2 (line 815) sets the tolerance 

for the use of "equals approximately" =# in 

the following line. y 



5 DIM A(12X#B(12)#AS(12)#BS(18) ^ 

10 PR.PR.PR.PR. 

**EXPER1MENT 16l MOLECULAR MASS FROM FREEZ1NG<*P01NT LOVERING” 

20 PR.PR.PR.PRiPR.PR.TAB<26)rVDATAVV^ ^ 

30 PR.PR.PR.TAB(21) IMPURE NAPHTHALENE” 

AO PR.PR«PR«”VHAT WAS THE MASS OF THE PAPER ( IN GRAMS)? ”lAC« PI 
50 PR.PR.”MASS OF NAPHTHALENE PLUS PAPER (IN GRAMS)? ”lAC« N1 
60 PR.PR«”1NCLUD1NG THE INITIAL READING* 

HOW MANY TEMPERATURES DID YOU RECORD? ” I AC. T1 

63 IF Tl>12 THEN PR.PR.*'0NLY 12 TEMPERATURES WILL BE ACCEPTED.” 

6<l IF Tl>12 THEN tl»12 

65 IF Tl<3 THEN PR. PR.”Y0U MUST HAVE AT LEAST 3 TEMPERATURES.” 

GOTO- 60 

70 PR.PR.”VHAT WAS THE INITIAL TEMPERATURE (IN ’O? ”lAC. A( 1 ) 

80 PR. PR.”VHAT WAS THE 2ND TEMPERATURE? ”lAC. A(2) 

90 PR.PR.”WHAT WAS THE 3RD TEMPERATURE? ” I AC . A(3) 

95 IF Tl«3 THEN 130 
100 FOR 1*4 TO Tl 

110 PR. PR.'*UHAT WAS THE”Hl”TH TEMPERATURE? ”IAC. A(1) 

•120 NEXT 1'; 

130 PR. PR.PR.TAB(18)I"NAPHTHALENE AND SULPHUR” 

UO PR.PR.PR.^WHAT WAS THE MASS OF THE PAPER( IN GRAMS) ? ”lAC.P2 
150 PR.PR.”MASS OF THE SULPHUR AND PAPER (IN GRAMS)? ”l AC. N2 
160 PR.PR.”1NCLUD1NG THE INITIAL READING# 

HOW MANY TEMPERATURES DID YOU RECORD? ” I AC. T2 

163 IF T2>12 THEN PR.PR. 

”0NLY 12 TEMPERATURES WILL BE ACCEPTED.” 

164 IF T2>I2 THEN T2«I2 

165 IF T2<3 THEN PR.PR.”YOU MUST HAVE AT LEAST 3 TEMPERATURES.” 

GOTO 160 

170 PR.PR.”WHAT WAS THE INITIAL TEMPERATURE ( IN *0? ”1 AC. B( I ) 
PR.PR.MWHAT WAS THE 2ND TEMPERATURE? •MAC. B(2) V ^ 
PR.PR.”VHAT WAS THE 3RD TEMPERATURE? ”IAC. B(3) 

IF T2»3 THEN 230 

FOR T»4-T0'T2\/‘;'..--., 

PR.PR.”WHAT WAS THE”lllVTH TEMPERATURE? ”IAC. B(1) 

^ NEXT ;i v 

PR.PR.PR.PR.PR.PR.TAB(25)I”/RESULTS\” : 

PR.PR.PR.TAB(6)I”T1ME<'TEMPERATURE GRAPH OF COOLING NAPHTHALENE” 
PR.PR.”TEMP.” 



180 

190 

195 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

385 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 



Pr;m;.-ic”. ' V-;';-,. 

FOR Y-90 TO 65 BY -I 

PR.:. Vi.-':. ^ 

F0R'l*i-^T0-.l2^'- 

IF Y«1NT(A(1)4..5) THEN AS(l)«”t V ELSE 

IF Y»lNT(B(l)4->5) THEN BS( !)•”♦ ” ELSE 

NEXT. 1 

F0R,.l«i-T0:'i2; 

IF AS( 1 ) «BS( 1 ) THEN PR. AS( 1 ) I GOTO 380 



A$(l)i 

B$(l)« 



IF AS(1)«” 

IF BS(1)«” 
PR.”4 ”1 /: 

MEXT 1 
PR. 

NEXT Y / 

PR.” ”1 ; 

FOR P*l TO 12 

PR.”i ”1 • 

NEXT P 

PR.- 

PR.”,,- 

FOR P*0 TO 9 
PR. Pi” V”i 
NE)CT P 



THEN 

THEN 



PR« 

PR« 



;bs(1)i 

AS( 1)1 



GOTO 

GOTO 



380 

380; 












' '■ r..’-.'-’’ Vi'/.. 
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LISTING OF /SPEX16/ (CONTINUED) 



<190 PB." 10 M" 

500 PR»TAB(83)l'*TIME-MINUTf.S** 

510 PR»PRi”THE PURE NAPHTHitLENE IS REPRESENTED BY THIS SYNBOUl t" 

580 PR.**THE' SULPHUR SOLUTION IS REPRESENTED BY THIS SYtCOLl 
530 PR •TABOO) l”THE INTERSECTION IS THIS SYHBOLl «** 

540PR.PR.PR.'*FR0N THE ABOVE GRAPH*'* 

550PR«PR«'*ESTIMATE THE FREEZINQ-POINT OF THE PURE NAPHTHALENE I **IAC>F1 

560PR»PR«'*ESTIMATE THE FREEZINQ-POINT OF THE SULPHUR SOLUTIONl **IAC»F8 

570 LBFl-F8«EaL/6>9«SlBNI-PI«S8aN8-P8«Mal000«S8>SI«AaN/E«S«lNT(A/3a«0 
64«.5> 

700 PR»PR.PRrPR>**FREEZING-POINT OF PURE NAPHTHALENE l"lFll** 

•C" ' ; , ■ 

710 PR»PR>”FREEZINQ-POINT OF SOLUTION l"lF8l" 'C 

715 PR*PR.**FREEZ1NQ-P0INT LOVERINQ |••^L»" 'C 

780 PH*PR«”MOLES OF SULFUR PER 1000 CIH> NAPHTHALENE l**lEl'* "•"MOLES" 
740 PB»PR»"MASS OF NAPHTHALENE IN SOLUTION l"lSl«"GRAHS" 

750 PR • PR ("HASS OF SULPHUR IN SOLUTION l"lS8;"QRAHS" ' 

760 PR»PR»"MASS OF SULPHUR PER 1000 6M« NAPHTHALENE I"IN«"QRANS" 

770 PR»PR»"HASS OF SULPHUR IN ONE MOLE OF SULPHUR l"lA«"aRAMS" 

780 PR»PR.PR»"FORHULA OF SULPHUR MOLECULE IN SOLUTION! S"lS 

.800 PR • PR .PR • PR • PR • PR • TABC 23 > I "/CONCLUS I ONS \** 

810 PR»PR»PR> 

**1) THE ACTUAL VALUE FOR THE FREEZINQ-POINT OF NAPHTHALENE 
IS ABOUT 80*C."^^ 

815 EPS* .B 

880 IF Fl-#80 THEN PR.rYOU HERE CORRECT." GOTO 845. 

830 IF Fl#80 THEN PR*"YOU VERE'MABSCF1-80)I" DEGREE**! 

840IF ABS<F1-80)<»1 THEN PR*** OFF." ELSE PB*"S OFF*** ; 

845 Jb C l NT( 1 0« C H/846 • 9/32 • 064« • 5 ) ) ) / 1 0 

850 PR* PR ."2 > BASED ON THE MASSES OF SULPHUR AND NAPHTHALENE 
YOU USED* THE FREEZING-POINT OF THE. SOLUTION SHOULD HAVE 
BEEN ABOUT"! 80- J!" *C*** 

860 IF F8-#80-J THEN PR*"YOU HERE CORRECT." GOTO 875 
865 IF F8#80-J THEN PR***YOU VERE"!ABS(F8-80«J)!"DEGREE"! 

870 IF ABS(8b-J><Bl THEN PR*** OFF." ELSE PR. "S OFF*" 

875 PR*PR."3> THE FORMULA OF THE SULPHUR MOLECULE SHOULD BE S 8." 

880 IF S-8 THEN PR."YOU HERE ABSOLUTELY RIGHT I" ELSE 
PR*"MAYBE YOU*LL HAVE BETTER LUCK ON THE NEXT EXPER I MENT • • • " 

950 PR*PR.PR*PR.PR.PR*TABC23>! 

952 GOSUB 992 

953 PR*"/FUN A QAHESS"! 

956 GOSUB 992 

960 PR*PR.PR*PR." THERE IS A NUMBER ASSIGNED TO EACH POINT ON THE 
GRAPH* THESE ARE THE NUMBERS LABELED 'TIME-MINUTES** FOR 

EACH OF THE T VO SETS OF POINTS AND VITHOUT LIFTING YOUR 
PENCIL* CONNECT THE DOTS IN NUMERICAL ORDER. TRY TO MAKE" 

961 PR* "SMOOTH CURVES." 

970 PR* PR ."EXTRA CREDIT! COLOR THE TWO CURVES ON YOUR GRAPH WITH 
DIFFERENT CRAYONS OR PENS* CHINT! USE A BLEND OF THE COLORS 
ON THE PLACE WHERE THE CURVES OVERLAP.)" 

980 PR*PR.PR*PR*"THIS HAS BEEN THE 16TH IN THE /SPEX/ LAB 
EXPERIMENTS SERIES*" 

990 PR *PR ."COLLECT THE DHOLE SETI"PR*PR.PR.PR. 

991 END 

992 GSbCHAR(007) 

993 PR* OS! FOR J-l TO 5 

994 RETURN 



ERIC 




